Application.ModelessCmd("g1")
Application.ModelessCmd("gd1")
Application.StatusBarText = "Set Grids = 1"